home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / chatmenu.cs < prev    next >
Encoding:
Text File  |  1999-09-14  |  9.8 KB  |  269 lines
  1. newObject(PlayChatMenu, ChatMenu, "Root Menu:");
  2. newObject(CommandChatMenu, ChatMenu, "Command Menu");
  3.  
  4. function setPlayChatMenu(%heading)
  5. {
  6.    $curPlayChatMenu = %heading;
  7. }
  8.  
  9. function setCommanderChatMenu(%heading)
  10. {
  11.    $curCommanderChatMenu = %heading;
  12. }
  13.  
  14. function addPlayTeamChat(%text, %msg, %sound)
  15. {
  16.    if(%sound != "")
  17.    {
  18.       %msg = %msg @ "~w" @ %sound;
  19.    }
  20.    if($curPlayChatMenu != "")
  21.    {
  22.       %text = $curPlayChatMenu @ "\\" @ %text;
  23.    }
  24.    addCMCommand(PlayChatMenu, %text, say, 1, %msg);
  25. }
  26.  
  27. function addPlayChat(%text, %msg, %sound)
  28. {
  29.    if(%sound != "")
  30.    {
  31.       %msg = %msg @ "~w" @ %sound;
  32.    }
  33.    if($curPlayChatMenu != "")
  34.    {
  35.       %text = $curPlayChatMenu @ "\\" @ %text;
  36.    }
  37.    addCMCommand(PlayChatMenu, %text, say, 0, %msg);
  38. }
  39.  
  40. function addPlayAnim(%text, %anim, %sound)
  41. {
  42.    if($curPlayChatMenu != "")
  43.    {
  44.       %text = $curPlayChatMenu @ "\\" @ %text;
  45.    }
  46.    addCMCommand(PlayChatMenu, %text, messageAndAnimate, %anim, %sound);
  47. }
  48.  
  49. function addLocal(%text, %sound)
  50. {
  51.    if($curPlayChatMenu != "")
  52.    {
  53.       %text = $curPlayChatMenu @ "\\" @ %text;
  54.    }
  55.    addCMCommand(PlayChatMenu, %text, localMessage, %sound);
  56. }
  57.  
  58. function addPlayCMDResponse(%text, %action, %msg, %sound)
  59. {
  60.    if(%sound != "")
  61.       %msg = %msg @ "~w" @ %sound;
  62.    if($curPlayChatMenu != "")
  63.       %text = $curPlayChatMenu @ "\\" @ %text;
  64.    addCMCommand(PlayChatMenu, %text, remoteEval, 2048, "CStatus", %action, %msg);
  65. }
  66.  
  67. function addCommandResponse(%text, %action, %msg, %sound)
  68. {
  69.    if(%sound != "")
  70.       %msg = %msg @ "~w" @ %sound;
  71.    if($curCommanderChatMenu != "")
  72.       %text = $curCommanderChatMenu @ "\\" @ %text;
  73.    addCMCommand(CommandChatMenu, %text, remoteEval, 2048, "CStatus", %action, %msg);
  74. }
  75.  
  76.  
  77. function addContextCommand(%text, %type)
  78. {
  79.    if($curCommanderChatMenu != "")
  80.       %text = $curCommanderChatMenu @ "\\" @ %text;
  81.    addCMCommand(CommandChatMenu, %text, contextCommand, %type);
  82. }
  83.  
  84. function addCommand(%text, %action, %msg, %sound)
  85. {
  86.    if(%sound != "")
  87.       %msg = %msg @ "~w" @ %sound;
  88.    if($curCommanderChatMenu != "")
  89.       %text = $curCommanderChatMenu @ "\\" @ %text;
  90.    addCMCommand(CommandChatMenu, %text, setIssueCommand, %action, %msg);
  91. }
  92.  
  93. // Player Chat menu
  94.  
  95. setPlayChatMenu("vOffense");
  96.         addPlayTeamChat("aAttack!","Attack!", attack);
  97.         addPlayTeamChat("wWait for signal", "Wait for my signal to attack.", waitsig);
  98.         addPlayTeamChat("cCease fire", "Cease fire!", cease);
  99.         addPlayTeamChat("mMove out", "Move out.", moveout);
  100.         addPlayTeamChat("rRetreat", "Retreat!", retreat);
  101.         addPlayTeamChat("hHit deck", "Hit the deck!", hitdeck);
  102.         addPlayTeamChat("eRegroup", "Regroup.", regroup);
  103.         addPlayTeamChat("vCover me", "Cover me!", coverme);
  104.         addPlayTeamChat("gGoing offense", "Going offense.", ono);
  105.         addPlayTeamChat("zAPC ready", "APC ready to go... waiting for passengers.", waitpas);
  106.  
  107. setPlayChatMenu("tTarget");
  108.         addPlayTeamChat("aTarget acquired", "Target Acquired", tgtacq);
  109.         addPlayTeamChat("fFire on my target", "Fire on my target", firetgt);
  110.         addPlayTeamChat("nTarget needed", "I need a target.", needtgt);
  111.         addPlayTeamChat("oTarget out of range", "Target out of range.", tgtout);
  112.         addPlayTeamChat("dDestroy Enemy Generator", "Destroy the enemy genarator.", desgen);
  113.         addPlayTeamChat("eEnemy Generator Destroyed", "Enemy generator destroyed.", gendes);
  114.         addPlayTeamChat("tDestroy Enemy Turret", "Destroy enemy turret.", destur);
  115.         addPlayTeamChat("sEnemy Turret Destroyed", "Enemy turret destroyed.", turdes);
  116.  
  117. setPlayChatMenu("dDefense");
  118.         addPlayTeamChat("iIncoming Enemies", "Incoming enemies!", incom2);
  119.         addPlayTeamChat("aAttacked", "We are being attacked.", basatt);
  120.         addPlayTeamChat("eEnemy is attacking base", "The enemy is attacking our base.", basundr);
  121.         addPlayTeamChat("nNeed more defense", "We need more defense.", needdef);
  122.         addPlayTeamChat("bDefend our base", "Defend our base.", defbase);
  123.         addPlayTeamChat("dDefending base", "Defending our base.", defend);
  124.         addPlayTeamChat("tBase Taken", "Base is taken.", basetkn);
  125.         addPlayTeamChat("cBase Clear", "Base is secured.", bsclr2);
  126.         addPlayTeamChat("qIs Base Clear?", "Is our base clear?", isbsclr);
  127.  
  128. setPlayChatMenu("fFlag");
  129.         addPlayTeamChat("gFlag gone", "Our flag is not in the base!", flgtkn1);
  130.         addPlayTeamChat("eEnemy has flag", "The enemy has our flag!", flgtkm2);
  131.         addPlayTeamChat("hHave enemy flag", "I have the enemy flag.", haveflg);
  132.         addPlayTeamChat("sFlag secure", "Our flag is secure.", flaghm);
  133.         addPlayTeamChat("rReturn our flag", "Return our flag to base.", retflag);
  134.         addPlayTeamChat("fGet enemy flag", "Get the enemy flag.", geteflg);
  135.         addPlayTeamChat("mFlag mined", "Our flag is mined.", flgmine);
  136.         addPlayTeamChat("cClear mines", "Clear the mines from our flag.", clrflg);
  137.         addPlayTeamChat("dMines cleared", "Mines have been cleared.", mineclr);
  138.  
  139. setPlayChatMenu("rNeed");
  140.         addPlayTeamChat("rNeed Repairs", "Need repairs.", needrep);
  141.         addPlayTeamChat("aNeed APC Pickup", "I need an APC pickup.", needpku);
  142.         addPlayTeamChat("eNeed Escort", "I need an escort back to base.", needesc);
  143.         addPlayTeamChat("tNeed Ammo", "Can anyone bring me some ammo?", needamo);
  144.  
  145. setPlayChatMenu("eTeam");
  146.         addPlayTeamChat("wWatch Shooting", "Watch where your shooting!", wshoot3);
  147.         addPlayTeamChat("dDont know", "I don't know.", dontkno);
  148.         addPlayTeamChat("nNo", "No.", no);
  149.         addPlayTeamChat("yYes", "Yes.", yes);
  150.         addPlayTeamChat("tThanks", "Thanks.", thanks);
  151.         addPlayTeamChat("aNo Problem", "No Problem.", noprob);
  152.         addPlayTeamChat("sSorry", "Sorry.", sorry);
  153.         addLocal("hHurry station", hurystn);
  154.  
  155. setPlayChatMenu("gGlobal");
  156.         addPlayChat("zDoh", "Doh!", oops1);
  157.         addPlayChat("oOops", "Oops!", oops2);
  158.         addPlayChat("sShazbot", "Shazbot!", color2);
  159.         addPlayChat("qDamnit", "Damnit!", color6);
  160.         addPlayChat("cCrap", "Ah Crap!", color7);
  161.         addPlayChat("eDuh", "Duh.", dsgst1);
  162.         addPlayChat("xYou Idiot", "You Idiot!", dsgst2);
  163.  
  164. setPlayChatMenu("aAnimations");
  165.         addPlayAnim("oOver here", 0, ovrhere);
  166.         addPlayAnim("dMove out of way", 1, outway);
  167.         addPlayAnim("rRetreat", 2, retreat);
  168.         addPlayAnim("sStop", 3, dsgst4);
  169.         addPlayAnim("fSalute", 4, yes);
  170.         addPlayAnim("zKneel Pose", 10);
  171.         addPlayAnim("xStand Pose", 11);
  172.         addPlayAnim("qCelebrate 1", 5, cheer1);
  173.         addPlayAnim("eCelebrate 2", 6, cheer2);
  174.         addPlayAnim("wCelebrate 3", 7, cheer3);
  175.         addPlayAnim("vTaunt 1 - how'd that feel?", 8, taunt10);
  176.         addPlayAnim("gTaunt 2 - Come get some", 9, taunt4);
  177.         addPlayAnim("hWave - Hi", 12, hello);
  178.         addPlayAnim("bWave - Bye", 12, bye);
  179.  
  180.  
  181. setPlayChatMenu("zCommand Response");
  182.     addPlayCMDResponse("aAcknowledged", 1, "Command acknowledged", "acknow");
  183.     addPlayCMDResponse("zCompleted", 0, "Objective complete", "objcomp");
  184.     addPlayCMDResponse("uUnable to complete", 0, "Unable to complete objective", "objxcmp");
  185.  
  186.  
  187. // Commander Menu
  188.  
  189. function contextIssueCommand(%action, %msg, %sound)
  190. {
  191.    if(%sound != "")
  192.       %msg = %msg @ "~w" @ %sound;
  193.    setIssueCommand(%action, %msg);
  194. }
  195.  
  196. // $CommandTarget can be one of:
  197.  
  198. // waypoint
  199. // enemy vehicle
  200. // enemy player
  201. // enemy static
  202. // enemy turret
  203. // enemy sensor
  204. // friendly vehicle
  205. // friendly player
  206. // friendly static
  207. // friendly turret
  208. // friendly sensor
  209.  
  210.  
  211. function Commander::StarCommand(%type)
  212. {
  213.    if(%type == "*Attack")
  214.    {
  215.       if($CommandTarget == "enemy static")
  216.             contextIssueCommand(1, "Destroy enemy equipment at waypoint", "attobj"); 
  217.       else if($CommandTarget == "enemy turret")
  218.             contextIssueCommand(1, "Destroy enemy turret at waypoint", "attobj"); 
  219.       else if($CommandTarget == "enemy sensor")
  220.             contextIssueCommand(1, "Destroy enemy sensor at waypoint", "attobj"); 
  221.       else if($CommandTarget == "enemy player" || $CommandTarget == "enemy vehicle")
  222.          contextIssueCommand(1, "Attack enemy " @ $CommandTargetName, "attway");
  223.       else if($CommandTarget == "friendly player")
  224.          contextIssueCommand(1, "Cover " @ $CommandTargetName, "escfr");
  225.       else if($CommandTarget == "friendly vehicle")
  226.          contextIssueCommand(1, "Board APC ", "boarda");
  227.       else
  228.          contextIssueCommand(1, "Attack enemy forces", "attway");
  229.    }
  230.    else if(%type == "*Defend")
  231.    {
  232.         if($CommandTarget == "friendly player")
  233.            contextIssueCommand(2, "Defend " @ $CommandTargetName, "escfr"); 
  234.         else
  235.            contextIssueCommand(2, "Defend waypoint", "defway");
  236.    }
  237.    else if(%type == "*Repair")
  238.    {
  239.         if($CommandTarget == "friendly player")
  240.            contextIssueCommand(2, "Repair " @ $CommandTargetName, "repplyr"); 
  241.         else
  242.            contextIssueCommand(2, "Repair " @ $CommandTargetName, "repobj");
  243.    }
  244. }
  245.  
  246. setCommanderChatMenu("");
  247.  
  248.    addCommand("aAttack", 1, "*Attack");
  249.    addCommand("dDefend", 2, "*Defend");
  250.    addCommand("rRepair", 3, "*Repair");
  251.  
  252.    setCommanderChatMenu("eDeploy");
  253.         setCommanderChatMenu("eDeploy\\sSensor");
  254.             addCommand("pPulse sensor", 2, "Deploy pulse sensor at waypoint", "deppuls");
  255.             addCommand("jJammer", 2, "Deploy sensor jammer at waypoint", "depjamr");
  256.             addCommand("mMotion sensor", 2, "Deploy motion sensor at waypoint", "depmot");
  257.             addCommand("cCamera", 2, "Deploy camera at waypoint", "depcam");
  258.         setCommanderChatMenu("eDeploy\\aObject");
  259.             addCommand("aAmmo", 2, "Deploy Ammo Station", "depamo");
  260.             addCommand("iInventory", 2, "Deploy Inventory Station", "depinv");
  261.             addCommand("tTurret", 2, "Deploy Turret", "deptur");
  262.             addCommand("bBeacon", 2, "Deploy beacon at waypoint", "depbecn");
  263.         setCommanderChatMenu("eDeploy");
  264.         addCommand("vA.P.C.", 2, "Pilot APC to waypoint", "pilot");
  265.  
  266. setCommanderChatMenu("kCommand Response");
  267.     addCommandResponse("aAcknwledged", 1, "Command acknowledged", "acknow");
  268.     addCommandResponse("cCompleted", 0, "Objective complete", "objcomp");
  269.     addCommandResponse("uUnable to complete", 0, "Unable to complete objective", "objxcmp");